# this script extracts data from va_wikifolio database 
# and split-addjust it, then plots it

sym <- "INTC"

# connect to database
con <- connectToVadb(dbname="va_wikifolio")

sql <- sprintf("SELECT * FROM `va_wikifolio`.`stockprice` LEFT JOIN `va_wikifolio`.`stockname` ON (id=stock_ID) WHERE
               `symbol`='%s'", sym)
TS <- dbGetQuery(con, sql)



disconnectFromVadb(con)